﻿Imports Negocio
Public Class frmFormulario1

    Dim servicio1 As New DocumentoAlmacenDetalleNegocio

    Dim pedido As String = ""

    Sub New(codPedido As String)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.pedido = codPedido
    End Sub

    Private Sub frmFormularioGenerico_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Pedido : " & pedido

        cargarDetalle(pedido)
    End Sub

    Sub cargarDetalle(codPedido As String)
        Dim ds As DataSet = servicio1.obtenerItemsPedido(codPedido)

        dgvDetalle.DataSource = ds.Tables(0)

        If ds.Tables(0).Rows.Count <> 0 Then
            dgvDetalle.Rows(0).Selected = False
            lblCantidad.Text = "Cantidad de Items : " & ds.Tables(0).Rows.Count
        End If
    End Sub

End Class